home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib12.dsk / ERROR MESSAGE PRINTING.bas < prev    next >
BASIC Source File  |  2023-02-26  |  911b  |  18 lines
  1. 0  REM  ++++++++++++++THIS MUST CONTAIN AT LEAST 14 CHARACTERS!
  2. 1  REM  ************************
  3. 3  REM  *ERROR MESSAGE PRINTING*
  4. 5  REM  *  FROM  ONERR...GOTO  *
  5. 7  REM  ************************
  6. 10  ONERR  GOTO 1000
  7. 20  FOR I = 2054 TO 2067
  8. 30  READ K
  9. 40  POKE I,K: NEXT 
  10. 50  POKE  -22816,234: POKE  -22817,234: REM  ENABLE DOS ERROR MESSAGES
  11. 70  POKE  -22802,234: POKE  -22803,234: POKE  -22804,234: REM  DISABLE CR/LF AFTER DOS ERROR MESSAGE
  12. 100  REM  INSERT PROGRAM HERE
  13. 200  NEXT : REM  NEXT WITHOUT FOR ERROR-PUT ANY ERROR YOU LIKE HERE
  14. 1000 E =  PEEK(222)
  15. 1005  IF E = 0  OR E >15  THEN  PRINT : PRINT : CALL 2054: REM  APPLESOFT ERROR; CALL ROUTINE IMBEDDED IN LINE 0
  16. 1020  IF E < >2  AND E < >3  AND E < >8  AND E < >11  THEN  PRINT " ERROR";: REM  THESE MESSAGES INCLUDE 'ERROR'
  17. 1030  PRINT  CHR$(7);" IN LINE "; PEEK(218) + PEEK(219) *256
  18. 2000  DATA  166,222,189,96,210,72,32,92,219,232,104,16,245,96